Public Class frmQUICK_REPORT
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmQUICK_REPORT_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Try
            GC.Collect()
            Me.Dispose()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub frmQUICK_REPORT_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        PublicFunction.NewFormLoad(Me)
        vlSalesDate.Text = PublicVariable.SystemDate.ToString(PublicVariable.DateTimeFormat)

        Dim arName As New ArrayList
        arName.Add("@Date")

        Dim arVal As New ArrayList
        arVal.Add(PublicVariable.SystemDate)

        Dim dt As DataTable = BLL.ObjectGetBy("RPT_QUICK_REPORT", arName, arVal)

        If dt.Rows.Count > 0 Then
            vlSalesAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("SalesAmount"))
            vlDiscountAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("DiscountAmount"))
            vlNetSalesAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("NetSalesAmount"))
            vlTaxAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("TaxAmount"))
            vlGrossSalesAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("GrossSalesAmount"))
            vlRefundAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("RefundAmount"))

            vlCashAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("CashAmount"))
            vlVoucherAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("VoucherAmount"))
            vlCreditCardAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("CreditCardAmount"))
            vlDebitAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("DebitAmount"))
            vlMileageAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("MileageAmount"))
            vlForeignAmt.Text = String.Format(PublicVariable.NumberFormatString, dt.Rows(0).Item("ForeignAmount"))
        End If
    End Sub
End Class